home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / s / greekboxes.pprx < prev    next >
Text File  |  1992-03-14  |  898b  |  39 lines
  1. /*
  2. @BGreekBoxes  @P@ICopyright Gold Disk Inc. February, 1992
  3.  
  4. This genie will greek all boxes in a document by type.
  5. */
  6. cr = '0a'x
  7. address command
  8. call SafeEndEdit.rexx()
  9. first   = ppm_DocFirstPage()
  10. last    = ppm_DocLastPage()
  11.  
  12. call ppm_AutoUpdate(0)
  13. types = "PDraw Clips"cr"Text"cr"BitMap"cr"Structured Graphics"cr"EPSF"
  14. types = upper(ppm_SelectFromList("Select boxes to Greek", 20, 3, 1, types))
  15. if types = '' then exit_msg()
  16. call ppm_ShowStatus("Working..")
  17.  
  18. do page = first to last
  19.     box = ppm_PageFirstBox(page)
  20.     do while box ~= 0
  21.         info = upper(word(ppm_GetBoxInfo(box), 1))
  22.         if pos(info, types) ~= 0 then
  23.             call ppm_SetBoxHide(box, 1)
  24.         box = ppm_PageNextBox(box)
  25.     end
  26. end
  27.  
  28. exit_msg()
  29.  
  30. exit_msg: procedure
  31. do
  32.     parse arg message
  33.     if message ~= '' then call ppm_Inform(1,message,)
  34.     call ppm_ClearStatus()
  35.     call ppm_AutoUpdate(1)
  36.     exit
  37. end
  38.  
  39.